Private Sub btn_Click()

    Dim  As Range
    Dim ڵ As Range
    
    Set  = Range("B3", Cells(Rows.Count, "B").End(xlUp))
    Set ڵ = .Find(What:=txt.Value).Resize(1, 7)
    
    With ڵ
        .Cells(1).Value = Int(txt.Value)
        .Cells(2).Value = txt̸.Value
        .Cells(3).Value = cmb.Value
        .Cells(4).Value = txtֹε.Value
        .Cells(5).Value = DateValue(txt.Value)
        .Cells(6).Value = Int(txt.Value)
        .Cells(7).Value = IIf(opt.Value = True, "", "")
    End With
       
    Unload Me

End Sub
